Open het gesprek met een gesprekspartner
Semanta Tel:+31-162-313323 of International +1-514-331-0572
require_once ("config-smta.php");
require_once ("conv.php");
require_once ("xtrt-wbpg-func.php");
///////////////////////////
?>
function text_isrt($invr_text)
{
error_reporting(0);
$func="text-isrt-func";
// echo "
".$func."Vraag:".$invr_text;
include ("config.php");
$invr=explode("@",$invr_text);
$taal=$invr[0];
if ($taal == null)
{
$taal="engels";
}
$text=$invr[1];
$tabl_rchs=$text;
// print_r($invr);
$sql="select * from text where `lnks` = '$text' and `taal` = '$taal' ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql,$link);
$num_tabl= mysql_num_rows($tablresult);
// echo "
hebben we iets gevonden
".$num_tabl." ".$sql;
if ($num_tabl == 0)
{
$sqlland="select * from land where `lnks` = '$text' and `taal` = '$taal' ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sqlland,$link);
$num_land= mysql_num_rows($tablresult);
if ($num_land == 0)
{
}
if ($num_land > 0)
{
while ($row = mysql_fetch_assoc($tablresult))
{
$tabl_lnks= $row['lnks'];
$tabl_rchs= $row['rchs'];
$tabl_taal= $row['taal'];
// echo "
Dit is het antwoord:".$tabl_rchs;
}
}
}
if ($num_tabl > 0)
{
// echo "
hebben we iets gevonden
".$gn06_tabl." ".$gn06sql;
while ($row = mysql_fetch_assoc($tablresult))
{
$tabl_lnks= $row['lnks'];
$tabl_rchs= $row['rchs'];
$tabl_taal= $row['taal'];
}
}
// echo "
Dit is het antwoord:".$tabl_rchs;
return $tabl_rchs;
}
?>
function ipad_cntr($ipcd)
{
include ("config.php");
$smta_func="ipad-cntr-func=Bepaal de landnaam van de regio";
// echo "
IPAD CNTR IP Code=".$ipcd;
$sql = "SELECT * from land where `rchs`= '$ipcd' order by levl desc ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$result1 = mysql_query($sql, $link);
$num_lang = mysql_num_rows($result1);
// echo "
IPAD CNTR Aantal landen ".$num_lang;
$cntr_array=array();
$l=0;
$sw=0;
while ($row = mysql_fetch_assoc($result1))
{
$lnks=$row['lnks'];
$rchs=$row['rchs'];
$levl=$row['levl'];
// echo "ipad-cntr-func Nederlandse landnaam".$lnks;
$cntr_array[$l]=$lnks;
$l=$l+1;
}
// echo "
IPAD CNTR
";
// print_r($cntr_array);
return $cntr_array;
}
?>
function xtrt_aiml($line,$taal,$tabel)
{
$modl="xtrt-aiml-func";
include ("config-smta.php");
require_once ("smta-tlkd-func-0017.php");
// include ("text-isrt-func.php");
$modl_name="xtrt-aiml-func";
if ($taal == null)
{
$taal="nederlands";
}
if ($tabel == null)
{
$tabel="wiml";
}
$tabl_desc["aiml"]="Pandorabots conversations";
$tabl_desc["wiml"]="Semanta conversations";
$tabl_desc["ftma"]="Follow the Money conversations";
$modl_desc="Gaat op zoek naar vragen en antwoorden in ".$tabl_desc[$tabel];
// echo "
".$modl_desc."
".$line."--".$taal;
// echo " BEPAAL TAAL ".urlencode($line);
///////////////
$mb_rslt=preg_split('/(?";
foreach($mb_rslt as $mb_key => $mb_val)
{
$mb_lowr=mb_strtolower($mb_val,'UTF-8');
$mb_text=$mb_text.$mb_lowr;
}
// echo "
TEST TLKD MB TEXT ".$mb_text;
$mb_dtls=explode(" ",$mb_text);
$new_mb="";
$tl=0;
foreach($mb_dtls as $mb_key => $mb_val)
{
// echo "
KEY ".$mb_key." VAL ".$mb_val;
$new_mb=$new_mb." ".$mb_val;
}
trim($new_mb);
$unew_mb=urlencode($new_mb);
$new_lnks=mb_strtolower($unew_mb);
// echo "
NEW LINE ".$new_lnks;
$line=urldecode($new_lnks);
$line=trim($line);
// echo "
".$modl_desc." ".$line." ".$taal." ".$tabel;
$strn_val=$line;
$scre_array=array();
$sw_mt=0;
///////////////////////
echo "";
$sqltref="SELECT * FROM aiml WHERE MATCH (pattern,template) AGAINST ('$line' IN NATURAL LANGUAGE MODE) order by `pattern` desc " ;
// $sqltref="SELECT * , MATCH (pattern,template,topic) AGAINST ('$line' ) AS score FROM aiml WHERE MATCH (pattern,template,topic) AGAINST ('$line' ) order by `score` desc";
// $sqltref="SELECT * , MATCH (pattern,template,topic) AGAINST ('$line' ) AS score FROM wiml WHERE MATCH (pattern,template,topic) AGAINST ('$line' ) order by `score` desc";
if ($tabel == "aiml")
{
$sqltref="SELECT * , MATCH (pattern,template,filename) AGAINST ('$line' ) AS score FROM aiml WHERE MATCH (pattern,template,filename) AGAINST ('$line' ) order by `score` desc";
}
if ($tabel == "wiml")
{
// $sqltref="SELECT * , MATCH (pattern,template,thatpattern) AGAINST ('$line' ) AS score FROM wiml WHERE MATCH (pattern,template,thatpattern) AGAINST ('$line' ) order by `score` desc";
}
if ($tabel == "ftma")
{
// $sqltref="SELECT * , MATCH (pattern,template,filename) AGAINST ('$line' ) AS score FROM ftma WHERE MATCH (pattern,template,filename) AGAINST ('$line' ) order by `score` desc";
}
$splt_bzv1=explode(" ",$line);
$zoek_bzv1="%".$line."%";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$trefresult = mysql_query($sqltref, $link);
$tref_num = mysql_num_rows($trefresult);
// echo "
Aantallen ".$sqltref." ".$tref_num." SQL ";
// echo "";
// echo "Toelichting | Template | Pattern | Onderwerp |
";
if ($tref_num == 0)
{
// $scre_array["0@".$line."@".$template."@".$domn]=$scre_array[$scre."@".$pattern."@".$template."@".$domn]+1;
// echo "GEEN DIRECT RESULTAAT ".$cpattern." | ".$ctemplate." |
";
}
// echo "
You can select your chatbot here by selecting his profession and get to know his or her knowledge.";
if ($tref_num > 0)
{
$corp_sw="0";
$kd=0;
// echo "Semanta | Gesprekspartner | Corpus | Kennisdomein |
";
echo "
Er zijn ".$tref_num." entries gevonden voor uw uiting ".$wrds_form;
while ($row = mysql_fetch_assoc($trefresult) and $kd <32 )
{
$scre=$row['score'];
$id=$row['id'];
$pattern=$row['pattern'];
$thatpattern=$row['thatpattern'];
$template=$row['template'];
$topic=$row['topic'];
$intention=$row['filename'];
$scre= round($scre, 2);
$nscr="00".$scre."00";
// echo "
PATTERN ".$pattern." TEMPLATE ".$template;
if (strlen($scre)== 1)
{
$nscre=substr($nscr,0,4);
}
if (strlen($scre)== 2)
{
$nscre=substr($nscr,1,4);
}
if (strlen($scre)== 3)
{
$nscre=substr($nscr,2,4);
}
$splt_intn=explode("@",$intention);
$usag_intn=$splt_intn[0];
$usag_extn=$splt_intn[1];
if ($hrelt != $pattern)
{
$kd=$kd+1;
$cpattern="".$pattern."";
$ctemplate="".$template."";
echo " ".$cpattern." |
";
// echo "
NSCRE ".$nscre;
$scre_array[$nscre."@".$topic."@".$pattern."@".$thatpattern."@".$template."@".$usag_intn]=$scre_array[$nscre."@".$topic."@".$pattern."@".$thatpattern."@".$template."@".$usag_intn]+1;
// echo "".$cpattern." | ".$ctemplate." |
";
$hrelt=$pattern;
// echo "".$cpattern." | ".$ctemplate." | ".$usag_intn." | ".$usag_extn." | ";
}
$domn_array[$domn]=$domn_array[$domn]+1;
}
}
echo "
";
// echo "
Pandorabots entries: ".count($scre_array);
// print_r($scre_array);
krsort($scre_array);
return($scre_array);
}
?>
function bwrk_bzkr($ipad)
{
$rfer_srvr=$_SERVER['SERVER_NAME'];
$rfer_url=$_SERVER['HTTP_REFERER'];
$userip=$_SERVER['REMOTE_ADDR'];
// echo "
RFER SRVR ".$rfer_srvr." RFER URL ".$refr_url;
$datm=date("Y-m-d H:i:s", time());
include ("config.php");
$func_itms=explode("!!",$ipad);
// print_r($func_itms);
$func_func=$func_itms[0];
$func_ipad=$func_itms[1];
if(count($func_itms) == 3)
{
$func_mail=$func_itms[2];
}
// echo "
FUNC ITMS ".$func_mail."
";
$sql= "SELECT * FROM bzkr where `ipad` = '$userip' order by `datm` desc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
// echo "
".$sql." BZKR FUNC Aantallen TABL NUM ".$tabl_num;
$hrelt="xxxxx";
if ($tabl_num == 0)
{
$cmds_ipad=$userip;
$cmds_bzv2=$rfer_url."[bzkr[".$invr_taal."[info@".$refr_srvr."[".$func_ipad."[1";
$lcmds_bzv2="Beginnen met uw gesprek";
// echo "
".$cmds_bzv2."
";
include ("chbt-cmds-code-2.php");
}
if ($tabl_num > 0)
{
while ($row = mysql_fetch_assoc($tablresult))
{
$id=$row['id'];
$ipad=$row['ipad'];
$domn=$row['domn'];
$taal=$row['taal'];
$lnks=$row['lnks'];
$rchs=$row['rchs'];
$levl=$row['levl'];
$bzkr_levl=$levl+1;
$datm=$row['datm'];
$domn_itms=explode(",",$domn);
// echo "
ID ".$id." IPAD ".$ipad." TAAL".$taal." DOMN ".$domn." LNKS ".$lnks." RCHS ".$rchs;
// echo "
IPAD ";
// print_r($bzkr_array);
if ($func_func == "mail" and $func_mail != null)
{
$sql1 = "UPDATE bzkr SET `levl`='$bzkr_levl', `datm` ='$datm' WHERE `ipad`= '$userip' ";
$logentry_result = mysql_query($sql1, $link);
}
$bzkr_array[$rchs."!!".$domn."!!".$lnks]=$bzkr_array[$rchs."!!".$domn."!!".$lnks]+1;
}
}
// echo "
BZKR ARRAY ".$func_parm."
";
// print_r($bzkr_array);
// echo "
Onze conversatie tot nu toe.";
echo "";
// echo "Uiting | Typering | Invalshoek |
";
foreach ($bzkr_array as $bzv1_key => $bzv1_val)
{
$bzv1_rslt=explode("!!",$bzv1_key);
$bzv1_rchs=$bzv1_rslt[0];
$bzv1_domn=$bzv1_rslt[1];
$bzv1_lnks=$bzv1_rslt[2];
if ($bzv1_domn != $bzv1_rchs and $bzv1_domn != null)
{
// echo "".$bzv1_domn." | ".$bzv1_lnks." | ".$bzv1_rchs." |
";
}
}
// echo "
";
//////////
// print_r($bzkr_array);
return($bzkr_array);
}
?>
function bepl_gvkr($line)
{
error_reporting(0);
$func="bepl-gvkr-func";
$ontl_strt = microtime(true);
// echo "
".$func." INVOER ".urlencode($line)."
";
$rfer_srvr=$_SERVER['SERVER_NAME'];
$rfer_url=$_SERVER['HTTP_REFERER'];
$userip=$_SERVER['REMOTE_ADDR'];
// echo "
RFER ".$rfer_url;
require_once ("config.php");
// require_once("bwrk-bzkr-func.php");
require_once("xtrt-xxxx-func.php");
require_once ("tlkd-smts-func.php");
require_once("smta-tlkd-func-0017.php");
$invr_bzv1=$line;
// echo "
".$modl." VOORAF INVR BZV1 ".$invr_bzv1." INVR CORP ".$invr_corp." INVR CONT ".$invr_cont." INVR TAAL ".$invr_taal." INVR CHBT ".$invr_chbt." INVR MAIL ".$invr_mail."INVR BZV2 ".$invr_bzv2."INVR DOMN".$invr_domn;
$say_itms=explode(" ",$line);
$invr_bzv1=str_replace("+"," ",$invr_bzv1);
// echo "
SAY ITMS ";
// print_r($say_itms);
// trim($invr_bzv1);
$smts_rslt=tlkd_smts($line);
// require_once("time-laps-func.php");
// $ontl_rslt=time_laps($ontl_strt."@BEPL SMTS");
// echo $ontl_rslt;
$invr_bzv1=str_replace("+"," ",$invr_bzv1);
// echo "
SMTS ITMS ";
// print_r($smts_rslt);
$bzv1_itms=explode(" ",$invr_bzv1);
$new_bzv1="";
// sort($smts_rslt);
// echo "";
$srelt="XXXXX";
$st=0;
// echo '';
foreach($smts_rslt as $smts_key => $smts_val)
{
// echo "
SMTS KEY ".$smts_key." SMTS VAL ".$smts_val;
$smts_itms=explode("!!",$smts_key);
// print_r($smts_itms);
$smts_type=$smts_itms[0];
$smts_sgmt=$smts_itms[1];
// echo "
SMTS TYPE ".$smts_type." SMTS SGMT ".$smts_sgmt;
$ssmts_sgmt=str_replace(" ","+",$smts_sgmt);
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$smts_text=$smts_itms[2];
$sgmt_itms=explode(" ",$smts_type);
if (count($sgmt_itms) > 1)
{
// print_r($sgmt_itms);
$itms_cntr=count($sgmt_itms);
foreach($sgmt_itms as $itms_key => $itms_val)
{
// echo "
ITMS KEY ".$itms_key."ITMS VAL ".$itms_val;
$subs_rslt=xtrt_xxxx("xdotx".$itms_val,"nederlands","subs");
foreach($subs_rslt as $subs_key => $subs_val)
{
$subs_dtls=explode("!!",$subs_key);
// print_r($subs_dtls);
$subs_word=$subs_dtls[2];
$subs_intp=$subs_dtls[3];
$subs_dale=$subs_dtls[7];
// echo "
SUBS WORD ".$subs_word;
if ($itms_val == $subs_word)
{
// echo "
SUBS WORD ".$subs_word." ITMS VAL ".$itms_val;
if ($irelt != $subs_intp)
{
// echo "
EUREKA ".$subs_dtls[2]." Interpretatie ".$subs_dtls[3].">>".$subs_dtls[7];
$gvkr_array[$st]=count($sgmt_itms)." ".$subs_key;
$irelt = $subs_intp;
}
$st=$st+1;
}
}
// echo "GEVOEL EN EMOTIES";
$subs_rslt=xtrt_xxxx("xdotx".$itms_val,"nederlands","gevl");
foreach($subs_rslt as $subs_key => $subs_val)
{
$subs_dtls=explode("!!",$subs_key);
// print_r($subs_dtls);
$subs_word=$subs_dtls[2];
$subs_intp=$subs_dtls[3];
$subs_dale=$subs_dtls[7];
// echo "
ITMS VAL ".$itms_val." SUBS WORD ".$subs_word." SUBS INTP ".$subs_intp." SUBS DALE ".$subs_dale;
if ($itms_val == $subs_dale)
{
if ($grelt != $subs_dale)
{
// echo "
EUREKA ".$subs_word." Interpretatie ".$subs_intp.">>".$subs_dale;
$gvkr_array[$st]=count($sgmt_itms)." ".$subs_key;
$grelt = $subs_dale;
}
$st=$st+1;
}
}
// $st=$st+1;
}
}
}
// echo "
GEVL TEXT ".$gevl_text;
//////////////////////////////////////////
asort($gvkr_array);
// print_r($gvkr_array);
// echo "
KRKT TEXT ".$krkt_text;
// echo "
GRAM TEXT ".$gram_text;
// $gvkr_array[grammatica]=$gram_text;
// $gvkr_array[karakter]=$krkt_text;
// $gvkr_array[gevoel]=$gevl_text;
// print_r($gvkr_array);
return $gvkr_array;
}
VOORAF INVR BZV1 INVR CORP INVR CONT INVR TAAL INVR BZV2 INVR LGRM INVR CHBT INVR BRKB INVR SESS
xtrt-xxxx-func.php Extract table from the database